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FIG.29 



rea 1*4 ep (5) , x (5) . y (5) . z (5) . xs (5) , ys (5) , zs (5) 
real*4 al(20Q).bl (200). ol (20 1) 

iij=1 234556 
fO=0. 05 
d!h=15. 0/fO 
na=16 
write (*. 10) 

formate Enter the location of x. y, z (cm) : ' $) (2) 
read(*. *. end=90) xp. yp, zp w; 



](D 



(3) 



] 



cat I mar ray (xp. yp t zp, na, c I ) 
do i~2, na*1 

verr~ran(i i j) 

ai<i-1)=cl (f)*<1.0+(verr~Q. 5)*<X QG1)-ct (1) t noise 0 1 % I < 4 ) 
end do ' 
writeC*, *) ^dL(cm)' , (ai (i>. 1=1, na) 
wr i te (*, *) 

calf mcycleCna, dlh, al) (5) 

do j=1, 5 

ep(i)=1.0©20 
end do 

do ik=-30, 30 

xp=f loaid x}*?0, 0 
do iy-~3O T 30 

yp=^rloat (iy)*1G. 0 
do u=-30,3D 

zp=fioat(i2)*10. 0 



(6) 



1 1 fliarr ay {xp, yp, zp. na, o I ) (7) 
do i~2, na+1 

§ bl<M)«ol<i)~cl(i)-al<l-l) (8) 
ersd do 



call aicycie(na,dih, bl) (9) 
er^O, 0 
do i~1,na 

er=er-Hbl Ci)**2 (10) 
md do 
do S~1,5 

if (er . ft «p(l» then 
If (i .no. 5) then 
do j-S. 

ep (j)=ep(j~l) 

x(jj=x(j-1) 

y<i)=y(j-l> 

Z(j)=Z(j~1) 

end do 
end if 

x(D~xp 
go to 30 



(11) 
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end if 
end do 
continue 
end do 
end da 
end do 

do i=1.5 

X$(i}~x(f) 



write(*, *) ' RMS error (cm) x v 

do i-1 r 5 

*rit*<*,*) sqrt<ep(0/float(na)),x(0,y(0.z(0 



do tn=1,5 
xO=xs (nr) 
yD=ys (nt) 

do ix=H5, 15 

xp=f loat (ix)+xG 
do iy=-15, 15 

yp=f loat (iy)+y0 
do iz=H5, 15 

zp=f Soat (iz)+z0 



oalt aiarray (xp,yp,zp, na, gO 
do i=2, na+1 

bl(i-l)=cl (i)-c! (1)-al(i-1) 
end do 

cal 1 fncycl8(na,dlh>bl) 
er-O* 0 
do i=1 , na 

er=er+bl (0**2 
end do 

do i=1,5 

if (er . It. ep(t>) than 
if (i ,ne. 5) then 
do j~5. 

ep(j}=Bp(j~0 



FIG.30 




and do 



and do 




x(j)=x 



end if 



ep(i)=er 
X(0-Xp 
y (0*yp 
z(i)=zp 



end if 



f o to 35 



and do 
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FIG.31 

coot i nue 
end do 
end do 
end do 

end do 
write(* *) 

wr ite(* r *} sqrt(epd) /float (na» , x (1>, yd) , z (1) (14) 

wr i te (* v *} 
go to 20 

stop 
end 

subroutine tnarray(xp, yp, zp, na, cl) 
rsal*4 ci (1) 

c! (1) =sqrt <xp*xp-+yp*yp+ (zp+gG, 0) **2) 
do i~2, na+1 

ixx^i/3 

iyy=Mxx*3 

xm^f I oat ( i xx-1 ) *50. 0-1 0. 0 
ym=f I oat ( i yy~1) *50. 0+1 0, 0 
ot (i) =sqrt((xp~xm) **2+ (yp-ym) **2+zp*zp) 
end do 

return 
end 

subroutine mcycle (rsa, dth, a I) 

rsal*4 ai O) 

do i~t, na 
cont i nue 

if (a I (i) a gt. dih) then 
al(i)^al(i)-dlh 
if (al(i) . le, dlh} go to 48 
go to 40 

and if 

cont i nue 

if (ai (i) , It -dlh) then 
al (i)=al(i)+dlh 
if (al {i) , ge. -dih) go to 46 
go to 45 

and if 

continue 
end do 

return 
dud 



Docket No.: 8075-1107 
Appln NO.: 10/590,882 
Reply to Notification of Defective Response: January 14, 2007 
REPLACEMENT SHEET 



FIG.32 



Enter the location of x. |r,z (ran) : 152.-203,56 
4^731 °'- m gW" 2 "?I 30007"' 48 '1? 74537 39 ' "5J noon 

- 54:3036 ' 



RMS error 
0. 6834297 
0. 8562734 
1. 116775 
1. 163736 
1. 216863 



(cm) 



150. 0000 
150. 0000 
150. 0000 
160. 0000 
160. 0000 



8. 4395386E-02 152. 0000 



-20O. 0000 
-190. 0000 
-20O. 0000 
-230 0000 
-220. 0000 

-203. 0000 



60. 00000 
50. 00000 
50. 00000 
70. 00000 
60. 00000 

56. 00000 



Enter the location of x. y, z (era) : 22 123 -89 
ZJL(cm) 5.506481 57.46710 16 50204 -17 27929 

55. 74849 14. 06553 -20 41722 66 89948 28 1Q10R 

-2 332703 89. 04320 55! 22502 29! 83902 119 4 93 

90. 37129 69. 39222 n». <hsj 



RMS error 
1 . 445567 
1 . 754374 

1. 951296 

2. 345274 
2. 709345 



(cm) 



20. 00000 
20. 00000 
20. OOOOO 
20. 00000 
20. 00000 



6. 2024966E-02 22. 00000 



y 

1 30. 0000 
1 30. 0000 
120. 0000 
120. 0000 
140. 0000 

123.0000 



-90. 00000 
-100. 0000 
-80. 00000 
-90. 00000 
-100.0000 

-89. 00000 



Enter the location of x, y, z (cm) : 60 161 5 

AL(om) -23.45399 32.54938 ' -13. 85323 -57 41031 

Va S il ~ 1T - 36571 22 85288 -26. 38201 

-74.96463 36.05470 -9.367880 -5150449 59 00156 

18.86572 -15.62937 oa.uuibb 



RMS error 
1. 358104 
1 . 400364 
1.561480 
1. 779230 
1. 850774 



(om) x 
60. 00000 
60. 00000 
60. 00000 
60. 00000 
60. 00000 



4. 4650473E-02 60. OOOOO 
Enter the location of x, y, z (cm) 



y 

160. 0000 
160. 0000 
170.0000 
170. 0000 
150. 0000 

161.0000 



10. OOOOO 
0. 000O00OE+0O 
0. 000O00OE+0O 

1 0. 00000 

10. OOOOO 

5. 000000 



